(LAP PARMOD SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CAME 1 2) 
	(JRST 0 TAG2) 
	(MOVEI 1 (QUOTE NIL)) 
	(JRST 0 TAG1) 
TAG2 	(HRRZ@ 1 1) 
	(HLRZ@ 2 -1 P) 
	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(CAME 2 1) 
	(JRST 0 TAG3) 
	(MOVE 2 -1 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E PARMOD1)) 
	(JRST 0 TAG1) 
TAG3 	(HRRZ@ 1 0 P) 
	(HLRZ@ 2 0 P) 
	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(CAME 2 1) 
	(JRST 0 TAG4) 
	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E PARMOD1)) 
	(JRST 0 TAG1) 
TAG4 	(PUSH P (C 0 0 TAG7 0)) 
	(MOVE 2 -1 P) 
	(MOVE 1 -2 P) 
	(CALL 2 (E PARMOD1)) 
	(PUSH P 1) 
	(MOVE 2 -3 P) 
	(MOVE 1 -2 P) 
	(CALL 2 (E PARMOD1)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 16 (E NCONC)) 
TAG7 
TAG5 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL